home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 155 / 155.d81 / b.fun things (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  3KB  |  87 lines
  1. 0 rem----fun things title----
  2. 1 data002,130,128,010,170,160,042,000
  3. 2 data168,008,195,032,040,195,040,171
  4. 3 data125,234,168,195,042,040,000,040
  5. 4 data168,040,042,168,040,042,040,000
  6. 5 data040,040,130,040,168,040,042,138
  7. 6 data000,162,010,000,168,040,170,040
  8. 7 data032,040,008,008,085,032,001,085
  9. 8 data064,005,085,080,021,085,084,255
  10. 9 data021,085,080,017,017,016,049,017
  11. 10 data048,051,012,192,063,015,192,051
  12. 11 data012,192,063,015,192,051,012,193
  13. 12 data015,012,197,015,003,213,003,000
  14. 13 data026,000,192,026,003,255,213,003
  15. 14 data048,197,012,048,193,015,255,192
  16. 15 data048,195,192,048,195,000,207,255
  17. 16 data000,240,195,000,240,195,000,255
  18. 17 data240,195,000,240,195,000,255,252
  19. 18 data000,240,204,000,240,204,000,255
  20. 19 data252,000,240,204,000,240,204,000
  21. 20 data255,240,000,240,192,000,240,192
  22. 21 data000,255,192,000,048,192,000,048
  23. 22 data192,000,063,192,000,042,128,000
  24. 23 data170,168,000,170,170,000,170,170
  25. 24 data000,170,170,000,162,168,000,032
  26. 25 data010,170,168,008,136,136,012,136
  27. 26 data140,003,048,204,003,240,252,003
  28. 27 data048,204,003,240,252,131,048,204
  29. 28 data163,048,240,171,192,240,088,000
  30. 29 data192,088,003,000,171,255,192,163
  31. 30 data012,192,131,012,048,003,255,240
  32. 31 data003,195,012,000,195,012,000,255
  33. 32 data243,000,195,015,000,195,015,255
  34. 33 data000,195,015,000,195,015,000,063
  35. 34 data255,000,051,015,000,051,015,000
  36. 35 data063,255,000,051,015,000,051,015
  37. 36 data000,015,255,000,003,015,000,003
  38. 37 data015,000,003,255,000,003,012,000
  39. 38 data003,012,000,003,252,000,001,084
  40. 39 data000,021,085,000,085,085,000,085
  41. 40 data085,000,085,085,000,021,069,032
  42. 42 poke56,56:clr
  43. 44 dv=peek(186):ifdv<8thendv=8
  44. 46 sys57812"fun font",dv,0:poke780,0:poke781,0:poke782,56:sys65493
  45. 48 poke53370,0
  46. 50 fori=12288to12607:reada:pokei,a:next
  47. 60 poke53280,1:poke53281,1
  48. 65 poke2040,192:poke2041,193:poke2042,194:poke2043,192:poke2044,195:poke2045,196
  49. 70 v=53248:pokev+39,8:pokev+40,8:pokev+41,0:pokev+42,8:pokev+43,8:pokev+44,0
  50. 75 pokev+28,63:pokev+37,6:pokev+38,5
  51. 80 pokev,70:pokev+1,80:pokev+2,70:pokev+3,101:pokev+4,70:pokev+5,122
  52. 85 pokev+6,250:pokev+7,80:pokev+8,250:pokev+9,101:pokev+10,250:pokev+11,122
  53. 95 pokev+21,63
  54. 100 :
  55. 101 print"[147]"chr$(142)""tab(12)"loadstar presents
  56. 102 [153][163]11)"william o. nelson's
  57. 103 printtab(11)"[144]      [223] "
  58. 104 printtab(11)"    [146][223][223] "
  59. 106 printtab(11)"     [146][223] "
  60. 108 printtab(11)"     "
  61. 110 printtab(11)" [146][223]  [146][169]  "
  62. 112 print"        [223] [169]  [223][169]  [223]"
  63. 114 printtab(5)"[182][161]    [146][223][223]   "
  64. 116 printtab(5)"[182][161]      [146][223]    [146][223]  [223]"
  65. 118 printtab(5)"[182][161]        "
  66. 120 printtab(5)"[182][161]     [146][223]  [146][169]  [223]  [146][169]"
  67. 122 print""tab(9)"[211] - [211] - [211] - [211] - [211] - [211]"
  68. 124 zz=0:poke198,0
  69. 125 zz=zz+1:geta$:ifa$=""andzz<400then125
  70. 200 :
  71. 210 poke53280,0:poke53281,0:poke53269,0:print"[147]":poke53272,31
  72. 220 print"              [198][213][206] [212][200][201][206][199][211] "
  73. 230 print"[153]   [211]imple action programs for youngsters
  74. 235 [153]"or handicapped persons. (NULL)o operate
  75. 240 print"use [211][208][193][195][197][194][193][210] or [202][207][217][211][212][201][195][203] in port #2.
  76. 250 [153]"   (NULL)ome of these have sound so turn up
  77. 255 print"the volume on your [212][214] or monitor.
  78. 295 [153]"  (NULL)ress ascright$(NULL)valpeek(NULL)(NULL)(NULL)(NULL)(NULL) or (NULL)(NULL)atnlenvalpeekatn(NULL) to start.
  79. 300 :
  80. 305 j=peek(56320):geta$:ifa$=""andj>111then305
  81. 310 print"[144][147]"
  82. 315 print"new"
  83. 320 print"load"chr$(34)"ft.menu"chr$(34)",",dv
  84. 325 print"run"
  85. 330 print"":poke631,13:poke632,13:poke633,13:poke198,3:end
  86. 10000 d=peek(186):n$="b.fun things":open15,d,15,"s0:"+n$:close15:saven$,d:end
  87.